Creating a gambas2 program, step by step, a telephone index

 From : http://listingambas.blogspot.com/2011/06/modulo-gestion-cancelar.html

Management Module: Cancel

If we press this button when editing (var.state = "Editing"), we will  delete all  data in the form and then edit, without changing the values ​​of other records.
PUBLIC SUB ButtonCancel_Click ()
''CLEAR .text PROPERTY OF texboxes
PictureBoxPhoto. Picture = Picture [ "icon: / 96/gambas" ]
TextBoxDNI. text = ""
TextBoxName. text = ""
TextBoxSurname. text = ""
TextBoxCompany. text = ""
TextBoxPosition. text = ""
TextBoxJobTel. text = ""
TextBoxPrivateTel. text = ""
TextBoxFax. text = ""
TextBoxJobMobile text = ""
TextBoxPrivateMobile text = ""
TextBoxWEB. text = ""
TextBoxAddress. text = ""
TextBoxComments. text = ""
TextBoxDate. text = ""
TextBoxMail. text = ""
'Write the entered data in gridview
title. fill ()
'setfocus right at the beginning of the data
TextBoxDNI. SetFocus
'state of editing Completed
var. status = ""
'Make gridViewData accessible again
gridViewData. Enabled = True
END
You will note that parts of code  are repeated several times in different areas of the program.
I suggest an optimization through code subroutines.